home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / diropus5soundplayer.lha / player2_2opus5 / Install < prev    next >
Text File  |  1995-10-05  |  26KB  |  700 lines
  1. ; * $VER: Install Players for Opus5 3.0 (10-Okt-95)
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set defaultdest      "DOpus5:Arexx")
  8. (set GuideDir           "Dopus5:")
  9. (set Opt 2)
  10. (set PrefsPrompt        "Settings for the installed programmes.")
  11. (set PlayCDDAPrompt     "Found old settings for PlayCDDA_YACDP.dopus5.\n\nSelect 'no' for install new settings !")
  12. (set PlayHifiPrompt     "Found old settings for PlayHifi.dopus5 or/and PlayHifi_DT.dopus5.\n\nSelect 'no' for install new settings !")
  13. (set YACDPPrompt        "PlayCDDA_YACDP.dopus5 needed YACDP V1.2 (© 1994 by Frank Würkner).\nPlease select drawer or path do YACDP !")
  14. (set YACDPERROR         "YACDP not installed or error do path !\nPlease install YACDP do Work:YACDP/YACDP")
  15. (set CDDAPrompt         "PlayCDDA_YACDP.dopus5 needed for save AIFF: CDDA V1.12.\nPlease select drawer or path do CDDA !")
  16. (set CDDAERROR          "CDDA not installed or error do path !\nPlease install CDDA do SYS:C !")
  17. (set CDRPrompt          "PlayCDDA_YACDP.dopus5 needed for save ADPCM3: CDRipper.\nPlease select drawer or path do CDRipper !")
  18. (set CDRERROR           "CDRipper not installed or error do path !\nPlease install do C:CDRipper")
  19. (set Play16Prompt       "PlayHifi.dopus5 and PlayHifi_DT.dopus5 needed Play16 1.5 (© 1995 by Thomas Wenzel). Please select drawer or path do Play16 !")
  20. (set Play16ERROR        "'Play16' not installed or error do path !\nSelect 'yes' for standard \"C:play16\" or 'no' for repeat. Please install Play16 do SYS:C.")
  21. (set PlayADPCMPrompt    "PlayHifi.dopus5 and PlayHifi_DT.dopus5 needed for play adpcm-sound PlayADPCM. Please select drawer do PlayADPCM !")
  22. (set PlayADPCMERROR     "'PlayADPCM' not installed or error do path.")
  23. (set PlayMPEGPrompt     "PlayHifi.dopus5 and PlayHifi_DT.dopus5 needed mpega (© 1995 by Stephane Tavenard). Please select drawer do mpega !")
  24. (set PlayMPEGERROR      "'mpega' not installed or error do path !\n\nSelect 'yes' for standard \"C:mpega\" or 'no' for repeat.")
  25. (set SCSIPrompt         "Please select, play over CDROM or play over scsi-bus and Amigaaudio.")
  26. (set CDVOLPrompt        "Please select volume for your CDROM. '0' = no volumesetting.")
  27. (set AMVOLPrompt        "Please select volume for your Amigaaudio. '0' = no volumesetting.")
  28. (set AmigaPrompt        "Play16-setup:\nFor correct playback speed, i need your screenmode of DirectoryOpus5.")
  29. (set PlayPrompt         "Play16-setup:\nPlease select the method of audio-output.\nFor 68020 and better select 14bit (see play16.doc).")
  30. (set MPEG_1Prompt       "mpega-setup:\nDefines the decoding quality, and also the decoding speed.\nSlow CPU users, select Low quality ...")
  31. (set MPEG_2Prompt       "mpega-setup:\nDefines the output decoding frequency. You can only use Normal mode if you have a screenmode >15kHz and a fast CPU !")
  32. (set MPEG_3Prompt       "mpega-setup:\nOutput: In 8 bits mode, play 8-bit audio samples.\nIn 14 bits mode, play 14-bit audio samples (better).")
  33. (set GuidePrompt        "For programmes exists guide, sorry only german (AmigGuide®-Format) with pics and testtools.")
  34. (set GuideDirPrompt     "Please select drawer for: Soundplayer.guide and players.readme.")
  35. (set InstallPrompt      "Which of the following locale should be installed ?")
  36. (set Opus5DirPrompt     "DirectoryOpus not found ?\nPlease select path do DirectoryOpus !")
  37. (set Opus5Message       "Is DirectoryOpus correct installed ?\nPlease select drawer do DirectoryOpus5 or install DirectoryOpus5 first !")
  38. (set Opus5Help          "Is DirectoryOpus correct installed ?\nPlease install DirectoryOpus5 first !")
  39. (set Opus5Old           "Is version of DirectoryOpus 5.11 or later ?\n(Read Soundplayer.guide).\nInstall programmes ?")
  40. (set Deinstallprompt    "Newer Version of Soundplayers exists!\nIm this delete ??")
  41. (set Opus5OHelp         "I need Version 5.11 or later of Directory Opus! Test version, see Soundplayers.guide.")
  42. (set ArexxDirPrompt     "Please select Arexx-Drawer for Playerscripts!")
  43. (set RexxPrompt        "I need Arexx for run programmes.\n\nKlick 'Proceed' for add line\n'SYS:System/Rexxmast >NIL:'\ndo your 'User-Startup'")
  44. (set PlayerCopyPrompt   "Copy players ...")
  45. (set LocaleCopyPrompt   "Copy cataloges ...")
  46. (set ButtonCopyPrompt   "Copy buttons ...")
  47. (set FiletypesPrompt    "Copy filetypes ...")
  48. (set GuideCopyPrompt    "Copy guide & pics ...")
  49. (set GuideCopyPrompt2    "Copy checktools ...")
  50. (set ToolsCopyPrompt    "Copy tools ...")
  51. (set OpusEdit           "Defaultdir for players is not standard (Dopus5:Arexx)!\nEdit Arexx-path AudioCD-Buttons and Filetypes.")
  52. (SET #exitMsg (CAT "Much fun with Programmes\nfor DirOpus5 wish you\n\n"
  53.                    "Eckhard Ludwig" ) )
  54.  
  55. ; deutsche Texte *****************************
  56.  
  57. (IF (= @language "deutsch")
  58. (
  59. (set Opt 1)
  60. (set PrefsPrompt        "Die neu installierten Programme müssen jetzt konfiguriert werden.\n\nEs werden Angaben zu den externen Programmen (nachzulesen in Soundplayers.guide) und zu Ihrem Amigasystem benötigt.")
  61. (set PlayCDDAPrompt     "Es ist bereits eine Konfigurationsdatei für PlayCDDA_YACDP.dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden ?")
  62. (set PlayHifiPrompt     "Es ist bereits eine Konfigurationsdatei für PlayHifi.dopus5 bzw. PlayHifi_DT.dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden ?")
  63. (set YACDPPrompt        "PlayCDDA_YACDP.dopus5 benötigt als externen Player YACDP V1.2 (© 1994 by Frank Würkner). Bitte wählen Sie die Schublade, wo YACDP installiert wurde, oder 'Weiter' !")
  64. (set YACDPERROR         "'YACDP' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"Work:YACDP/YACDP\" benutzen, falls sie YACDP noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  65. (set CDDAPrompt         "PlayCDDA_YACDP.dopus5 benötigt zum Speichern von Audiodaten in AIFF das externe Programm CDDA V1.12. Bitte wählen Sie die Schublade, wo CDDA installiert wurde !")
  66. (set CDDAERROR          "'CDDA' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:CDDA\" benutzen, falls sie CDDA (noch) nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  67. (set CDRPrompt          "PlayCDDA_YACDP.dopus5 benötigt zum Speichern von Audiodaten in ADPCM3 das externe Programm CDRipper. Bitte wählen Sie die Schublade, wo CDRipper installiert wurde !")
  68. (set CDRERROR           "'CDRipper' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:CDRipper\" benutzen, falls sie CDRipper (noch) nicht installiert haben bzw. nicht benötigen ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  69. (set Play16Prompt       "PlayHifi.dopus5 und PlayHifi_DT.dopus5 benötigen als externen Player Play16 1.5 (© 1995 by Thomas Wenzel). Bitte wählen Sie die Schublade, wo Play16 installiert wurde, oder 'Weiter' !")
  70. (set Play16ERROR        "'Play16' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:Play16\" benutzen, falls sie Play16 noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  71. (set PlayADPCMPrompt    "PlayHifi.dopus5 und PlayHifi_DT.dopus5 benötigen für ADPCM-Sounddateien den externen Player PlayADPCM. Bitte wählen Sie die Schublade, wo PlayADPCM installiert wurde, oder 'Weiter' !")
  72. (set PlayADPCMERROR     "'PlayADPCM' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:PlayADPCM\" benutzen, falls sie PlayADPCM noch nicht installiert haben bzw. nicht benötigen ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  73. (set PlayMPEGPrompt     "PlayHifi.dopus5 und PlayHifi_DT.dopus5 benötigen als externen Player mpega (© 1995 by Stephane Tavenard). Bitte wählen Sie die Schublade, wo mpega installiert wurde, oder 'Weiter' !")
  74. (set PlayMPEGERROR      "'mpega' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:mpega\" benutzen, falls sie mpega noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  75. (set SCSIPrompt         "Bitte wählen Sie, ob die Audiowiedergabe über die Audioausgänge des CDROM oder über SCSI-Bus und Amigaaudio (Paula) erfolgen soll.\n\nWiedergabe über Amigaaudio ist nur möglich, wenn das CDROM das Senden von Audiodaten über den SCSI-Bus unterstützt !\nEmpfohlen wird Wiedergabe über die Audioausgänge des CDROM-Laufwerkes.")
  76. (set CDVOLPrompt        "Bitte wählen Sie die Wiedergabelautstärke für Ihr CDROM-Laufwerk. Die zulässigen Werte (meist 1 bis 255) entnehmen Sie bitte Ihrer CDROM-Dokumentation. Der Wert '0' bedeutet, das die Lautstärke durch dieses Programm nicht verändert wird.")
  77. (set AMVOLPrompt        "Bitte wählen Sie die Wiedergabelautstärke für Ihre Amiga-Audioausgänge (1 bis 65). Der Wert '0' bedeutet, das die Lautstärke durch dieses Programm nicht verändert wird.")
  78. (set AmigaPrompt        "Play16-Konfiguration:\nUm die korrekte Abspielrate zu setzen, benötige ich den für DirectoryOpus5 benutzten Bildschirmmode.")
  79. (set PlayPrompt         "Play16-Konfiguration:\nWählen Sie die gewünschte Wiedergabequalität. Für 68020 und besser wird 14bit empfohlen (siehe play16.dok).")
  80. (set MPEG_1Prompt       "mpega-Konfiguration:\nWählen Sie die mögliche Ausgabequalität, je nach CPU-Typ/Taktfrequenz.\nBei Problemen die niedrigere Qualität auswählen.")
  81. (set MPEG_2Prompt       "mpega-Konfiguration:\nWählen Sie die Ausgabefrequenz.\nNormal (nicht bei PAL/NTSC-Bildschirmmode !) benötigt eine schnelle CPU !")
  82. (set MPEG_3Prompt       "mpega-Konfiguration:\nWählen Sie die gewünschte Wiedergabequalität.")
  83. (set GuidePrompt        "Für die Programme existiert eine umfangreiche deutschsprachige Anleitung im AmigaGuide®-Format mit zugehörigen Bild- und Testdateien.\n\nDiese können sie jetzt in ihre bevorzugte Schublade für Dokumentdateien installieren.")
  84. (set GuideDirPrompt     "Wohin sollen die deutsche Anleitung und die zugehörigen Dateien kopiert werden?")
  85. (set Installprompt      "Bitte wählen Sie für die Programme Ihre bevorzugte(n) Sprachversion(en). Weitere Sprachen können auch nachträglich installiert werden.")
  86. (set Opus5DirPrompt     "Bitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde!")
  87. (set Opus5Message       "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\n\nIst DirectoryOpus5 korrekt installiert wurden ?\n\nBitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde oder installieren sie DirectoryOpus5 zuerst !")
  88. (set Opus5Help          "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst !")
  89. (set Opus5Old           "Für die zu installierenden Programme wird mindesten Version 5.11 von DirectoryOpus benötigt.\n(siehe Soundplayer.guide).\nSollen die Programme installiert werden ?")
  90. (set Deinstallprompt    "Es ist bereits eine neuere Version der Soundplayer installiert!\nSollen diese wirklich ersetzt werden ?")
  91. (set Opus5OHelp         "Ich benötige mindesten V5.11 von DirectoryOpus! Zum Testen der Version lesen sie Soundplayers.guide.")
  92. (set ArexxDirPrompt     "Die Programme sollten in das Arexx-Verzeichnis von DirOpus5 installiert werden!\nBitte wählen Sie eine Schublade für die Player-Scripte !")
  93. (set RexxPrompt        "Die Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben.\nEs wird empfohlen, ARexx immer zu starten.\nWenn Sie ARexx automatisch starten lassen möchten, klicken Sie auf 'Weiter', um ARexx von Ihrer 'User-Startup' aus starten zu lassen.")
  94. (set PlayerCopyPrompt   "Kopiere Player ...")
  95. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  96. (set ButtonCopyPrompt   "Kopiere Knopfbank ...")
  97. (set FiletypesPrompt    "Kopiere Datatypes ...")
  98. (set GuideCopyPrompt    "Kopiere Anleitung und Bilder...")
  99. (set GuideCopyPrompt2    "Kopiere Checktools ...")
  100. (set ToolsCopyPrompt    "Kopiere Tools ...")
  101. (set OpusEdit           "Das gewählte Playerverzeichnis entspricht nicht dem Standard (Dopus5:Arexx)!\n Die Arexx-Pfade in Audio-CD Button und Datatypes müssen entsprechend ediert werden!")
  102. (SET #exitMsg (CAT "Viel Spaß mit den Soundprogrammen\nfür DirOpus5 wünscht\n\n"
  103.                    "Eckhard Ludwig" ) )
  104. )
  105. )
  106. ;*********************************************
  107. ; check if Directory Opus 5 is already installed
  108. ; check Version
  109.  
  110. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  111.     ((message Opus5Message)
  112.     (set Opus5path (askdir
  113.     (prompt Opus5DirPrompt)
  114.     (help @askdir-help)
  115.     (default "Work:")))
  116.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  117.        (abort Opus5Help))    
  118.     (makeassign "Dopus5" Opus5path (safe))
  119. ))
  120.  
  121. (if (> 327691 (getversion "DOpus5:DirectoryOpus"))
  122.     (if (not (askbool
  123.        (prompt Opus5Old)
  124.        (help Opus5OHelp)
  125.        (default 0)))
  126.     (abort Opus5OHelp))    
  127. )
  128.  
  129. ;*********************************************
  130. ; expertentest & versionstest older version
  131.  
  132. (if (= @user-level 2)
  133.   (if (not (exists defaultdest (noreq)))
  134.     (set defaultdest (askdir
  135.     (prompt ArexxDirPrompt)
  136.     (help    @askdir-help)
  137.     (default "Rexx:")
  138. ))))
  139.  
  140. (set @default-dest defaultdest)
  141.  
  142. (if (exists (tackon defaultdest "PlayHifi_DT.dopus5") (noreq))
  143.    ((set version (getversion ("dopus5:arexx/PlayHifi_DT.dopus5")))
  144.    (if (> version (getversion "Arexx/PlayHifi_DT.dopus5"))
  145.        (if (not (askbool 
  146.        (prompt Deinstallprompt)
  147.        (help @askbool-help)
  148.        (default 0)))
  149.           (exit (quiet)))
  150. )))
  151.  
  152.  
  153.  
  154.  
  155. ;*********************************************
  156. ; copy the files
  157.  
  158. (copyfiles
  159.    (prompt PlayerCopyPrompt)
  160.    (help @copyfiles-help)
  161.    (source "arexx")
  162.    (dest defaultdest)
  163.    (pattern "#?.dopus5")
  164.    (confirm "EXPERT")
  165.    (optional "force")
  166. )
  167.  
  168. ; PlayHifi_DT.dopus5 ersetzt PlayMPEG_DT.dopus5
  169.  
  170. (if (exists (tackon defaultdest "PlayHifi_DT.dopus5") (noreq))
  171.     (delete (tackon defaultdest "PlayMPEG_DT.dopus5"))
  172. )
  173.  
  174.  
  175. (complete 15)
  176.  
  177. (IF (= @language "All")
  178.     (set Opt 511))
  179.  
  180. (set installchoice
  181.    (askoptions
  182.    (prompt InstallPrompt)
  183.    (help @askoptions-help)
  184.    (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")
  185.    (default Opt)
  186. ))
  187.  
  188. (IF (BITAND installchoice 1)
  189.   (copyfiles
  190.    (prompt LocaleCopyPrompt)
  191.    (help @copyfileshelp)
  192.    (source "Locale/Catalogs/deutsch")
  193.    (dest "SYS:Locale/Catalogs/deutsch")
  194.    (pattern "#?.catalog")
  195.    (confirm "EXPERT")
  196.    (optional "force")
  197.   ))
  198.  
  199. (IF (BITAND installchoice 2)
  200.   (copyfiles
  201.    (prompt LocaleCopyPrompt)
  202.    (help @copyfileshelp)
  203.    (source "Locale/Catalogs/english")
  204.    (dest "SYS:Locale/Catalogs/english")
  205.    (pattern "#?.catalog")
  206.    (confirm "EXPERT")
  207.    (optional "force")
  208.   ))
  209.  
  210. (IF (BITAND installchoice 4)
  211.   (copyfiles
  212.    (prompt LocaleCopyPrompt)
  213.    (help @copyfileshelp)
  214.    (source "Locale/Catalogs/dansk")
  215.    (dest "SYS:Locale/Catalogs/dansk")
  216.    (pattern "#?.catalog")
  217.    (confirm "EXPERT")
  218.    (optional "force")
  219.   ))
  220.  
  221. (IF (BITAND installchoice 8)
  222.   (copyfiles
  223.    (prompt LocaleCopyPrompt)
  224.    (help @copyfileshelp)
  225.    (source "Locale/Catalogs/français")
  226.    (dest "SYS:Locale/Catalogs/français")
  227.    (pattern "#?.catalog")
  228.    (confirm "EXPERT")
  229.    (optional "force")
  230.   ))
  231.  
  232. (IF (BITAND installchoice 16)
  233.   (copyfiles
  234.    (prompt LocaleCopyPrompt)
  235.    (help @copyfileshelp)
  236.    (source "Locale/Catalogs/italiano")
  237.    (dest "SYS:Locale/Catalogs/italiano")
  238.    (pattern "#?.catalog")
  239.    (confirm "EXPERT")
  240.    (optional "force")
  241.   ))
  242.  
  243. (IF (BITAND installchoice 32)
  244.   (copyfiles
  245.    (prompt LocaleCopyPrompt)
  246.    (help @copyfileshelp)
  247.    (source "Locale/Catalogs/nederlands")
  248.    (dest "SYS:Locale/Catalogs/nederlands")
  249.    (pattern "#?.catalog")
  250.    (confirm "EXPERT")
  251.    (optional "force")
  252.   ))
  253.  
  254. (IF (BITAND installchoice 64)
  255.   (copyfiles
  256.    (prompt LocaleCopyPrompt)
  257.    (help @copyfileshelp)
  258.    (source "Locale/Catalogs/norsk")
  259.    (dest "SYS:Locale/Catalogs/norsk")
  260.    (pattern "#?.catalog")
  261.    (confirm "EXPERT")
  262.    (optional "force")
  263.   ))
  264.  
  265. (IF (BITAND installchoice 128)
  266.   (copyfiles
  267.    (prompt LocaleCopyPrompt)
  268.    (help @copyfileshelp)
  269.    (source "Locale/Catalogs/suomi")
  270.    (dest "SYS:Locale/Catalogs/suomi")
  271.    (pattern "#?.catalog")
  272.    (confirm "EXPERT")
  273.    (optional "force")
  274.   ))
  275.  
  276. (IF (BITAND installchoice 256)
  277.   (copyfiles
  278.    (prompt LocaleCopyPrompt)
  279.    (help @copyfileshelp)
  280.    (source "Locale/Catalogs/svenska")
  281.    (dest "SYS:Locale/Catalogs/svenska")
  282.    (pattern "#?.catalog")
  283.    (confirm "EXPERT")
  284.    (optional "force")
  285.   ))
  286.  
  287. (complete 25)
  288.  
  289. ;*********************************************
  290. ; copy buttons
  291.  
  292. (copyfiles
  293.    (prompt ButtonCopyPrompt)
  294.    (help @copyfileshelp)
  295.    (source "buttons")
  296.    (dest "DOpus5:buttons")
  297.    (confirm "EXPERT")
  298.    (optional "force")
  299.    (pattern "#?")
  300.    (files)
  301. )
  302.  
  303. (complete 40)
  304.  
  305. ;*********************************************
  306. ; copy filetypes
  307.  
  308. (copyfiles
  309.    (prompt FiletypesPrompt)
  310.    (help @copyfileshelp)
  311.    (source "filetypes")
  312.    (dest "DOpus5:filetypes")
  313.    (optional "force")
  314.    (confirm "EXPERT")
  315.    (pattern "#?")
  316.    (files)
  317. )
  318.  
  319. (complete 55)
  320.  
  321. ;*********************************************
  322. ; copy tools
  323.  
  324. (copyfiles
  325.    (prompt ToolsCopyPrompt)
  326.    (help @copyfiles-help)
  327.    (source "c")
  328.    (dest "SYS:C")
  329.    (pattern "#?")
  330.    (optional "force")
  331.    (confirm "AVERAGE")
  332.    (files)
  333. )
  334.  
  335. (complete 65)
  336.  
  337. ;*********************************************
  338. ; ADD REXX TO USER-STARTUP
  339.  
  340. (if
  341.     (startup "ARexx"
  342.         (prompt RexxPrompt)
  343.         (help @startup-help)
  344.         (command "SYS:System/RexxMast >NIL:")
  345.     )
  346.     (run "SYS:System/RexxMast >NIL:")
  347. )
  348.  
  349. ;*********************************************
  350. ; set prefs
  351.  
  352. (message PrefsPrompt)
  353.  
  354. (if (exists (tackon defaultdest "PlayCDDA_YACDP.dopus5") (noreq))
  355.     ((set YACDP_flag 1)
  356.      (if (exists ("ENVARC:PlayCDDA_YACDP.prefs") (noreq))
  357.          (if (askbool
  358.              (prompt PlayCDDAPrompt)
  359.              (help " ")
  360.              (default 1))
  361.              (set YACDP_flag 0))    
  362.  
  363.     )))
  364.  
  365. (if (= YACDP_flag 1)
  366. (
  367.  ((set YACDPDir "Work:YACDP")
  368.     (if (<> 1 (exists (tackon YACDPDir "YACDP")))
  369.      (until (= flag_1 1)
  370.            ((set YACDPDir (askdir
  371.             (prompt YACDPPrompt)
  372.             (help    @askdir-help)
  373.             (default "Work:")
  374.                 ))
  375.            (if (<> 1 (exists (tackon YACDPDir "YACDP")))
  376.              (if (askbool
  377.                  (prompt YACDPERROR)
  378.                  (help " "))
  379.                  ((set flag_1 1)
  380.                  (set YACDPDir "Work:YACDP")))
  381.                  (set flag_1 1))
  382.            ))
  383.     )             
  384.  )
  385.  
  386.  ((set CDDADir "C:")
  387.     (if (<> 1 (exists (tackon CDDADir "CDDA")))
  388.      (until (= flag_2 1)
  389.            ((set CDDADir (askdir
  390.             (prompt CDDAPrompt)
  391.             (help    @askdir-help)
  392.             (default "SYS:")
  393.                 ))
  394.            (if (<> 1 (exists (tackon CDDADir "CDDA")))
  395.              (if (askbool
  396.                  (prompt CDDAERROR)
  397.                  (help " "))
  398.                  ((set flag_2 1)
  399.                  (set CDDADir "C:")))
  400.                  (set flag_2 1))
  401.            ))
  402.     )             
  403.  )
  404.  
  405.  ((set CDRDir "C:")
  406.     (if (<> 1 (exists (tackon CDRDir "CDRipper")))
  407.      (until (= flag_3 1)
  408.            ((set CDRDir (askdir
  409.             (prompt CDRPrompt)
  410.             (help    @askdir-help)
  411.             (default "SYS:")
  412.                 ))
  413.            (if (<> 1 (exists (tackon CDRDir "CDRipper")))
  414.              (if (askbool
  415.                  (prompt CDRERROR)
  416.                  (help " "))
  417.                  ((set flag_3 1)
  418.                  (set CDRDir "C:")))
  419.                  (set flag_3 1))
  420.            ))
  421.     )             
  422.  )
  423.  
  424.  ((set SCSIPLAY (askbool
  425.     (prompt SCSIPrompt)
  426.     (help @askbool-help)
  427.     (choices "AmigaAudio" "CDROM")
  428.     (default 0)
  429.  )))
  430.  
  431.  (if (= SCSIPLAY 0)
  432.    ((set AMIGAVOL 65)
  433.     (set CDROMVOL (asknumber
  434.     (prompt CDVOLPrompt)
  435.     (help @asknumber-help)
  436.     (range 0 255)
  437.     (default 255)
  438.  ))))
  439.  
  440.  (if (= SCSIPLAY 1)
  441.    ((set CDROMVOL 255)
  442.     (set AMIGAVOL (asknumber
  443.     (prompt AMVOLPrompt)
  444.     (help @asknumber-help)
  445.     (range 0 65)
  446.     (default 65)
  447.  ))))
  448.  
  449.  (textfile 
  450.     (dest "ENVARC:PlayCDDA_YACDP.prefs")
  451.         (append ";$VER: Settings file for PlayCDDA_YACDP.dopus5 2.2\n" (tackon YACDPDir "YACDP") "\n" (tackon CDDADir "CDDA") "\n" (tackon CDRDir "CDRipper") "\n" CDROMVOL "\n" AMIGAVOL "\n" SCSIPLAY "\n")
  452.  )
  453.  (textfile 
  454.     (dest "ENV:PlayCDDA_YACDP.prefs")
  455.         (append ";$VER: Settings file for PlayCDDA_YACDP.dopus5 2.2\n" (tackon YACDPDir "YACDP") "\n" (tackon CDDADir "CDDA") "\n" (tackon CDRDir "CDRipper") "\n" CDROMVOL "\n" AMIGAVOL "\n" SCSIPLAY "\n")
  456.  )
  457.  
  458. ))
  459.  
  460. ;PlayHifi.prefs
  461.  
  462. (if
  463.     (exists (tackon defaultdest "PlayHifi.dopus5") (noreq))
  464.      ((set Hifi_flag 1)
  465.       (if (exists ("ENVARC:PlayHifi.prefs") (noreq))
  466.          (if (askbool
  467.              (prompt PlayHifiPrompt)
  468.              (help " ")
  469.              (default 1))
  470.              (set Hifi_flag 0))    
  471.  
  472.     )))
  473.  
  474. (if (= Hifi_flag 1)
  475. (
  476.  ((set Play16Dir "C:")
  477.     (if (<> 1 (exists (tackon Play16Dir "Play16")))
  478.      (until (= flag_4 1)
  479.            ((set Play16Dir (askdir
  480.             (prompt Play16Prompt)
  481.             (help    @askdir-help)
  482.             (default "Work:")
  483.                 ))
  484.            (if (<> 1 (exists (tackon Play16Dir "Play16")))
  485.              (if (askbool
  486.                  (prompt Play16ERROR)
  487.                  (help " "))
  488.                  ((set flag_4 1)
  489.                  (set PlayDir "C:")))
  490.                  (set flag_4 1))
  491.            ))
  492.     )             
  493.  )
  494.  
  495.  ((set PlayADPCMDir "C:")
  496.     (if (<> 1 (exists (tackon PlayADPCMDir "PlayADPCM")))
  497.      (until (= flag_5 1)
  498.            ((set PlayADPCMDir (askdir
  499.             (prompt PlayADPCMPrompt)
  500.             (help    @askdir-help)
  501.             (default "Work:")
  502.                 ))
  503.            (if (<> 1 (exists (tackon PlayADPCMDir "PlayADPCM")))
  504.              (if (askbool
  505.                  (prompt PlayADPCMERROR)
  506.                  (help " "))
  507.                  ((set flag_5 1)
  508.                  (set PlayADPCMDir "C:")))
  509.                  (set flag_5 1))
  510.            ))
  511.     )             
  512.  )
  513.  
  514.  ((set PlayMPEGDir "C:")
  515.     (if (<> 1 (exists (tackon PlayMPEGDir "mpega")))
  516.      (until (= flag_6 1)
  517.            ((set PlayMPEGDir (askdir
  518.             (prompt PlayMPEGPrompt)
  519.             (help    @askdir-help)
  520.             (default "Work:")
  521.                 ))
  522.            (if (<> 1 (exists (tackon PlayMPEGDir "mpega")))
  523.              (if (askbool
  524.                  (prompt PlayMPEGERROR)
  525.                  (help " "))
  526.                  ((set flag_6 1)
  527.                  (set PlayMPEGDir "C:")))
  528.                  (set flag_6 1))
  529.            ))
  530.     )             
  531.  )
  532.  
  533.     (set flag_1 (askchoice
  534.     (prompt AmigaPrompt)
  535.     (help @askchoicer-help)
  536.     (choices "PAL/NTSC" "DblPAL/DblNTSC/Multiscan/Euro72/Super72" "Graphic-Card")
  537.     (default 1)
  538.  ))
  539.  
  540.     (set flag_2 (askchoice
  541.     (prompt PlayPrompt)
  542.     (help @askchoicer-help)
  543.     (choices "Standard 8Bit" "Standard 14Bit" "14Bit CyberSound System" "MacroSystem MaestroPro Board")
  544.     (default 1)
  545.  ))
  546.  
  547.     (set flag_3 (askchoice
  548.     (prompt MPEG_1Prompt)
  549.     (help @askchoicer-help)
  550.     (choices "Low (68020)" "Medium (68030)" "High (68040/60)")
  551.     (default 1)
  552.  ))
  553.  
  554.     (set flag_4 (askchoice
  555.     (prompt MPEG_2Prompt)
  556.     (help @askchoicer-help)
  557.     (choices "Normal (44100Hz) no PAL/NTSC !" "1/2 (22050Hz)" "1/4 (11025Hz)")
  558.     (default 1)
  559.  ))
  560.  
  561.     (set flag_5 (askchoice
  562.     (prompt MPEG_3Prompt)
  563.     (help @askchoicer-help)
  564.     (choices "8Bit" "14Bit")
  565.     (default 1)
  566.  ))
  567.  
  568.  (if (= flag_2 0)
  569.      (set OUTPUT "Paula8 "))
  570.  (if (= flag_2 1)
  571.      (set OUTPUT "Paula14 "))
  572.  (if (= flag_2 2)
  573.      (set OUTPUT "Paula14c "))
  574.  (if (= flag_2 3)
  575.      (set OUTPUT "MPro "))
  576.  (if (<> flag_1 0)
  577.      (set PL16OP "FAST FILTER=OFF"))
  578.  (if (= flag_1 0)
  579.      (set PL16OP "FILTER=OFF"))
  580.  
  581.  (if (= flag_4 0)
  582.      (set flag_6 1))
  583.  (if (= flag_4 1)
  584.      (set flag_6 2))
  585.  (if (= flag_4 2)
  586.      (set flag_6 4))
  587.  
  588.  (if (= flag_5 0)
  589.      (set flag_7 " -e8"))
  590.  
  591.  
  592.  (textfile 
  593.     (dest "ENVARC:PlayHifi.prefs")
  594.         (append ";$VER: Settings file for PlayHifi.dopus5 & PlayHifi_DT.dopus5\n" (tackon Play16Dir "Play16") "\n" (tackon PlayADPCMDir "PlayADPCM") "\n" (tackon PlayMPEGDir "mpega") "\n" (cat OUTPUT PL16OP) "\n" (cat "-p -f0 -d" flag_6 " -q" flag_3 flag_7) "\n")
  595.  )
  596.  (textfile 
  597.     (dest "ENV:PlayHifi.prefs")
  598.         (append ";$VER: Settings file for PlayHifi.dopus5 & PlayHifi_DT.dopus5\n" (tackon Play16Dir "Play16") "\n" (tackon PlayADPCMDir "PlayADPCM") "\n" (tackon PlayMPEGDir "mpega") "\n" (cat OUTPUT PL16OP) "\n" (cat "-p -f0 -d" flag_6 " -q" flag_3 flag_7) "\n")
  599.  )
  600.  
  601. ))
  602.  
  603. (complete 75)
  604.  
  605. ;*********************************************
  606. ; set guidedir
  607.  
  608. (message GuidePrompt)
  609. (if (>= @user-level 1)
  610. (set GuideDir (askdir
  611.     (prompt GuideDirPrompt)
  612.     (help    @askdir-help)
  613.     (default "DOpus5:")
  614. )))
  615.  
  616. (makedir (tackon GuideDir "Check"))
  617. (makedir (tackon GuideDir "Pics"))
  618.  
  619. (copyfiles
  620.     (prompt    GuideCopyPrompt)
  621.     (help    @copyfiles-help)
  622.     (source "Soundplayer.guide")
  623.     (dest    GuideDir)
  624.         (confirm "EXPERT")
  625.         (optional "force")
  626.     (infos)
  627. )
  628.  
  629. ; Soundplayer.guide ersetzt PlayCDDA_YACDP.guide
  630.  
  631. (if (exists (tackon GuideDir "PlayCDDA_YACDP.guide") (noreq))
  632.     ((delete (tackon GuideDir "PlayCDDA_YACDP.guide"))
  633.     (delete (tackon GuideDir "PlayCDDA_YACDP.guide.info")))
  634. )
  635.  
  636.  
  637. (copyfiles
  638.     (prompt    GuideCopyPrompt)
  639.     (help    @copyfiles-help)
  640.     (source "players.readme")
  641.     (dest    GuideDir)
  642.         (confirm "EXPERT")
  643.         (optional "force")
  644.     (infos)
  645. )
  646.  
  647. (copyfiles
  648.     (prompt    GuideCopyPrompt)
  649.     (help    @copyfiles-help)
  650.     (source "snapshot.gif")
  651.     (dest    GuideDir)
  652.         (confirm "EXPERT")
  653.         (optional "force")
  654.     (infos)
  655. )
  656.  
  657. (copyfiles
  658.     (prompt    GuideCopyPrompt)
  659.     (help    @copyfiles-help)
  660.     (source "zgif00")
  661.     (dest    GuideDir)
  662.         (confirm "EXPERT")
  663.         (optional "force")
  664. )
  665.  
  666. (complete 85)
  667.  
  668. (copyfiles
  669.     (prompt    GuideCopyPrompt2)
  670.     (help    @copyfiles-help)
  671.     (source "Check")
  672.     (dest    (tackon GuideDir "Check"))
  673.         (pattern "#?")
  674.         (confirm "EXPERT")
  675.         (optional "force")
  676.         (files)
  677. )
  678.  
  679. (copyfiles
  680.     (prompt    GuideCopyPrompt)
  681.     (help    @copyfiles-help)
  682.     (source "Pics")
  683.     (dest    (tackon GuideDir "Pics"))
  684.         (pattern "#?")
  685.         (confirm "EXPERT")
  686.         (optional "force")
  687.         (files)
  688. )
  689.  
  690.  
  691. (complete 100)
  692.  
  693. (if (<> defaultdest "DOpus5:Arexx")
  694.     (message OpusEdit))
  695.  
  696. (delete (tackon GuideDir ".info"))
  697.  
  698.  
  699. (EXIT #exitMsg )
  700.